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? 

# sip client kludge W / > 

implement Command; 

Mod : con "sipc"; 

include "sys .m" ; 
sys : Sys ; 

stderr : ref Sys->FD; 

i nc lude " draw , m " ; 

include "daytime .m" ; 

include "csget.m"; 

day t ime : Day t ime ; 

include "sh.m"; 

Laddr : string; 
default_lport : con "5678"; 
default^rtpport : con "3456"; 
Calln : int; 
active := 0; 

init(ctxt : ref Draw->Context , args : list of string) 
{ 

sys = load Sys Sys->PATH; 
stderr = sys->f ildes (2 ) ; 

daytime= load Daytime Dayt ime -> PATH; 
if (daytime == nil) { 

sys->f print (stderr, "sip: load%s: %r\n", Day t ime -> PATH ) ; 
return; 

} 

Calln = ntimeO - int 5e+07; 

cs := load CsGet CsGet->PATH; 
(nil, Laddr, nil) = cs->hostinf o (nil) ; 
if (Laddr == nil) return; 

sys->print ( "This address: %s\n", Laddr); 

if (args != nil) 
args = tl args; 
opt : string; 
if (args != nil) 

opt = hd args; 
client : string; 
case opt { 

"?" or "-?" or "help" or "-help" => usageO; return; 
* => { 

if (opt != nil ScSc opt[0] == '$') { 
nc : = int opt [1 : ] ; 

client = nth(nc, readlist ( " /services/conf ig/sip_phones " ) ) ; 
args = tl args; 

} 

} 

} 

if (args != nil && client == nil) { 
client = hd args; 
args = tl args; 

} 

if (client == nil) client = "8090:8090"; 

if (args != nil) 

clients = args; 
else readclients ( ) ; 

ch := chan of int; 
client = thisclient (client) ; 
sys->print ( "This client: %s\n", client); 
if (client != nil) { 

(nil, nil, port) := expand (client) ; 

(ok, conn) := announceudpport (port ) ; 

if (ok < 0) return; 
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spawn listen (conn. dfd, ch) ; 
active = <- ch; 

} 

spawn rcmd( client, ch) ; 
pid := <- ch; 

#for(l := clients; 1 != nil; 1 = tl 1) 
# connect (client, hd 1); 

} 

clients : list of string; 

# load the last record of all clients that connected via sip 
readclients ( ) 

{ 

clients = readlist ( " /services/server/sip_clients " ) ; 

} 

include "kill .m" ; 

cleanup 0 
{ 

if (pid := active) { 
active = 0; 

kp := load Kill Kill->PATH; 

kp->killpid (string pid, array of byte "kill"); 

} 

} 

# /tmp/sipcmd channel to control client from another program 

# this does not deal with digit collection yet... 

#sipsrv : con "sipcmd"; 
sipsrv : con "sc"; 

rcmd (client : string, rch : chan of int) 
{ 

mp := Vtmp"; 

sys->bind( "#s" , mp, sys->MBEFORE) ; 
ch := sys->f ile2chan (mp, sipsrv); 
if (ch == nil) { 

rch <- = 0; 

sys->print (Mod+" : file2chan %s/%s %r\n", mp, sipsrv); 

return; 

} 

else rch <- = sys->pctl(0,nil) ; 

sys->print (Mod+" : %s/%s is the command interpreterXn" , mp, sipsrv); 

stop := 0; 
while ( ! stop) { 
alt { 

(o, data, fid, wc) := <- ch. write => 

if (data != nil && wc != nil) { 

sys->print (Mod+"> %s\n" , string data); 
stop = sipdo (client, string data); 
wc <- = (len data, nil) ; 

} 

(o, n, fid, rc) := <- ch.read => 

data := array of byte "sip commands - write help to read the 
if (rc != nil && n > 0) { 

if (n < len data) data = data[0:n]; 

rc <- = (data, "") ; 

} 

else if (rc != nil) rc <- = (nil, ""); 

} 

} 

cleanup ( ) ; 

} 

Call : adt 
{ 

conn : ref Sys->Connection; 

frum : string; 

tu : string; 
callid : string; 
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cseq : string; 
state : strings- 
session : ref Session; 

}; 

Session : adt 
{ 

sid : string; 

data : string; 

rdata : list of string; 

audio : ref Audio; 



Audio : adt 
{ 

addrl : string; 

addr2 : string; 

tipe : int; 

connl : ref Sys~>Connection; 

conn2 : ref Sys->Connection; 



Scall : ref Call; 

# only one call for now 

sipdo (client, cmd : string) : int 
{ 

(nil, cl) := sys->tokenize(cmd, " \t\r\n"); 
c := Scall; 

if (cl == nil) return 0; 
case hd cl { 

"a" => { 

if (c != nil) { 

if (estate == "INVITE 180 Ringing") { 
estate = "INVITE 2 00 OK"; 
send(c) ; 
return 0 ; 

} else if (start ("INVITE estate)) { 
nextstate{c) ; 
return 0; 

} 

else { 

sys->print ( "in call %s\n", c.callid); 
return 0; 

} 

} 

if (tl cl != nil) { 

line := hd tl cl; 

called := f indclient (line) ; 

if (called != nil) Scall = c = connect (client , called); 
else sys->print ( "client not found at line %s\n" , line); 

> 

else sys->print ( "missing line numberXn"); 

} 

"z" => { 

if (c == nil) c = Scall = Rcall; 

if (c == nil) sys->print ( "no current call\n"); 

else { 

if (estate == "INVITE 200 OK") { 
estate = "ACK" ; 
send(c) ; 
return 0; 

} 

else { 

Scall = c = cancel (c); 
Scall = c = nil; 
return 0; 

} 

} 

} 

"q" => return 1; 

* => sys->print ( "a <nuinber>, z, and q : are supported coxnmandsXn" ) ; 

} 

return 0; 

} 
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f indclient (line : string) : string 
{ 

ford := clients; 1 != nil; 1 = tl 1) { 
(num, nil, nil) := expand(hd 1) ; 
if {num == line) return hd 1; 

} 

return nil; 



ntimeO : int 

return int le+09 + daytiine->now( ) ; 



rtimeO : int 

return daytime->now( ) ; 



usage { ) 

sys->print( "usage: sip [ this_line# : this_port] [remote_line@ripaddr:rport] . . . [more c 



thisclient (client : string) : string 

if (client == nil) 

ford := clients; 1 != nil; 1 = tl 1) { 

(n, la) := sys->tokenize (hd 1, "@"); 
if (n == 0) { 

client = hd la; 
break ; 

} 

} 

(m, Ic) := sys->tokenize (client, ":"); 
sys->print(" client: %s %d\n" , client, m) ; 
if (m > 1) 

return hd Ic +"@"+Laddr+" : "+ hd tl Ic; 
else return client +"@"+Laddr+" : "+ def ault_lport; 

} 

expand(client : string) : (string, string, string) 
{ 

(n, la) := sys->tokenize (client, "@:"); 
if (n >= 2) { 

line := hd la; 

addr := hd tl la; 

port := default_lport ; 

if (n == 3) 

port = hd tl tl la; 

return (line, addr, port); 

} 

return (nil, nil, nil); 

} 

connect (f rum, tu : string) : ref Call 
{ 

(fline, faddr, fport) := expand ( f rum) ; 
(tline, taddr, tport) := expand(tu); 

sys->print( "Connect to %s at udp ! %s ! %s\n" , fport, taddr, tport); 

(ok, conn) := dialudpport (taddr , tport, fport); 

if (ok < 0) return nil; 

callid := sid2callid (string ntimeO); 

return send(ref Call (ref conn, frum, tu, callid, nil, "INVITE", nil)); 

} 

cancel (c : ref Call) : ref Call 
{ 

estate = "CANCEL"; 
udpaudioend(c. session) ; 
return send(c) ; 

} 

Siptags : list of string; 
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siptagp(s : string) : int 
{ 

if (Siptags == nil) Siptags = "INVITE" :: "ACK" :: "BYE" :: "CANCEL- :: ml; 
ford := Siptags; 1 != nil; 1 = tl 1) 
if {start(hd 1, s) ) return 1; 
return 0; 



endstatep(s : string) : int 

^ return s == "CANCEL" | | s == "BYE" || start ("BYE ", s) ; 

} 

send(c : ref Call) : ref Call 
{ 

tag := estate; 

if ( !siptagp{tag) ) { 

sys->fprint (stderr, "Unknown SIP event %s\n", tag); 

return nil; 

} 

phonetags : list of string; 
phones tate ; string; 

(nil, Itag) := sys->tokenize ( tag , " \t"); 
if (Itag != nil && tl Itag != nil) { 

tag = hd Itag; 

phonetags = tl Itag; 

for(l := phonetags; 1 != nil; 1 = tl 1) 
phonestate += " "+hd 1; 

} 

sys->print ( "current state %s%s\n", tag, phonestate); 

frum := c.frum; 

tu := c.tu; 

callid := c.callid; 

if (c.callid == nil) sys->fprint (stderr , "Missing callid in call to %s\n" , tu) ; 

(fline, faddr, fport) := expand ( frum) ; 
(tline, taddr, tport) := expand ( tu ) ; 

header, data : string; 

if (phonestate == nil) header += tag+" sip: "+tu+" ; user =phone "; 

header += " SIP/2 . 0 " +phonestate+ " \r\n" ; 

header += "Via: SIP/2. 0/UDP "+faddr+" : "+fport+" \r\n" ; 

if (phonetags != nil && hd phonetags == "200" && tag == "BYE") { 

header += "From: <sip: "+frum+" >\r\n" ; 

header += "To: <sip: " +tu+" ;user=phone>\r\n" ; 

} 

else { 

header += "From: "+f line+"_phone<sip: "+f rum+">\r\n" ; 
header += "To: "+tline+"<sip: "+tu+" ;user=phone>\r\n" ; 

} 

header += "Call-ID: "+ callid +"@"+f addr+" \r\n" ; 
cseq := c.cseq; 

if (cseq == nil || tag == "BYE") { 
seqn := 1; 

if (tag == "BYE") seqn++; 
cseq = string seqn+" "+tag; 
c.cseq = cseq; 

} 

header += "CSeq: "+cseq+" \r\n" ; 

if (phonetags == nil && tag == "INVITE") 

header += "Subject: Inferno Ephone INVITE\r\nContent-Type: application/sdp\r\n" ; 

if (phonetags != nil && hd phonetags == "200" && tag == "INVITE") 

header += "Contact: <"+tu+">\r\nContent-Type: application/sdp\r\n" ; 
header += "Content-Length: 

csp := 0; 

if ((phonetags == nil || hd phonetags == "200") && tag == "INVITE") { 
rtpport := def ault_rtpport; 
daddr := faddr; 

if (phonetags != nil && hd phonetags == "200") { 
rtpport = string (int rtpport + 10); 
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daddr = taddr; 

} 

sid := callid2sid(callid) ; 

data += "v=0\r\no=- "+sid+" "+sid+" IN IP4 "+daddr+"\r\n" ; 
data += "s=Inferno Ephone Session\r\n" ; 

data += "c=IN IP4 " +f addr+ " \r\nt=" +string rtime()+" O\r\nm=audio "+rtpport+" 
csp = addsession(c, sid, data) ; 

} 

msg := header+string len data+" \r\n\r\n"+data; 
if (c.conn == nil) { 

sys->print ( "RE-Connect to %s at udp ! %s ! %s\n" , fport, taddr, tport) ; 

(ok, conn) := dialudpport (taddr , tport, fport); 

if (ok >= 0) c.conn = ref conn; 

} 

if (c.conn != nil) { 

fd := c.conn.dfd; 

sys->print ( "Sending: \r\n%s\r\n", msg); 

sys->f print ( fd, "%s", msg); 

if (csp) startaudio (c . session, 1); 

} 

else sys->fprint (stderr, "Send error: mission connection\n" ) ; 
return c; 

} 

addsession(c : ref Call, sid, data : string) : int 
{ 

if (c. session == nil) 

c. session = ref Session(sid, data, nil, nil); 

else { 

s := c. session; 

if (s.sid != nil && sid != nil && s.sid != sid) { 

sys->f print (stderr, "changing session id %s->%s\n", s.sid, sid); 
s.sid = sid; 

} 

if (s.data == nil) s.data = data; 
else s.rdata = data :: s.rdata; 
return 1; 

} 

return 0; 

} 

startaudio (s : ref Session, tipe : int) 
{ 

ml := retrieve ( "m=" , s.data); 
cl := retrieve (" c= " , s.data); 
m2, c2 : string; 

sys->print ( "session %s data audio: \n\t%s\n" , s.sid, ml); 
if (s.rdata != nil) { 

sys->print ( " \trdata audio: \n" ) ; 
ford := s.rdata; 1 != nil; 1 = tl 1) { 
m2 = retrieve ( "m='* , hd 1); 
c2 = retrieve ( '*c=" , hd 1); 
sys->print("\t: : %s\n", m2); 

} 

if {m2 != nil) 

udpaudiocall (s, tipe, snth(2, cl) , snthd, ml), snth(2, c2), snthd, 

} 

} 

udpaudiocall (s : ref Session, tipe : int, faddr, fport, taddr, tport : string) 

sys->print{"\n > Start UDP audio: %d %s:%s %s:%s\n\n", tipe, faddr, fport, taddr, 

s. audio = ref Audio (faddr+" : "+f port, taddr+" : "+tport, tipe, nil, nil); 

} 

udpaudioend ( s : ref Session) 
{ 

if (s == nil) return; 
a := s. audio; 
if (a != nil) 

sys->print ("\n > Stop UDP audio: %d %s %s\n\n", a. tipe, a.addrl, a.addr2); 

s. audio = nil; 

) 
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Idkey : con 22e+07; 
sid2callid(sid : string) : string 

return string (int sid - int Idkey); 

} 

callid2sid{cid : string) : string 

return string (int cid | int Idkey); 

} 

InviteO : con "INVITE sip : 8089@135 , 2 . 180 . 2 1 : 8089 : 5060 ;user=phone SIP/2 . 0\r\nVia : SIP/2. 0/UDE 

InvDataO : con "v=0\r\no=- 1907994094 1907994094 IN IP4 135 . 2 . 180 . 20\r\ns=VOVIDA Session\r\r. 

inviteO_test {fd : ref Sys->FD) 
{ 

n := len InvDataO; 

s := InviteO+string n+ " \r\n\r\n" +InvDataO ; 
sys->print ("Sending: %s\r\n" , s) ; 
sys->fprint(fd, "%s", s) ; 

} 

announceudpport (port : string) : (int, Sys->Connection) 
{ 

addr := "udp ! * ! "+port ; 

(ok, conn) := sys->announce (addr); 

if (ok < 0) { 

sys->fprint (stderr, "Cannot announce at port %s \n", addr ); 
return (ok, conn) ; 

} 

# open the data file for the connection 

conn.dfd = sys->open (conn .dir+" /data" , sys->ORDWR) ; 

if (conn.dfd == nil) { 

sys->fprint (stderr, "Cannot open file %s/data\n", conn.dir); 
return ( - 1 , conn ) ; 

} 

sys->print ("Announced port %s\n", port); 
return (ok, conn) ; 

} 

Rcall : ref Call; 

# only one received call for now 

listen (fd : ref Sys->FD, ch : chan of int) 
{ 

ch <- = sys->pctl (0 , nil) ; 
buf := array(10241 of byte; 
while (active) { 

n := sys->read(fd, buf, len buf); 

if (n < 0) return; 

if (n > 0) { 

csp := 0; 

sys->print ( "Receiving : \n" ) ; 

(hi, data) := decode (string buf [0: len buf]); 
c := mkcalKhl, data); 
if (Scall != nil) 

if (c.callid == Scall . callid) { 
Scall. state = estate; 
if (c. session != nil) 

csp = addsession (Scall, c. session. sid, c.ses 
c = Scall; 

} 

else if (Rcall != nil) 

if (c.callid == Rcall .callid) { 
Rcall. state = estate; 
if (c. session != nil) 

csp = addsession (Rcall, c. session. si 
c = Rcall; 

} 
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else { 

sys->print ( "Switching received calls %s->%s\ 
c.conn = Rcall.conn; 
Rcall = c; 

} 

else Rcall = c; 

else 

Scall = c; 

if (Scall != nil && endstatep (Scall . state) ) { 
c = Scall; 
nextstate(c) ; 
udpaudioend(c. session) ; 
Scall = c = nil; 

} 

if (Rcall != nil && endstatep (Rcall . state) ) { 
c = Rcall; 
nextstate (c) ; 
udpaudioend(c- session) ; 
Rcall = c = nil; 

} 

if (c != nil ScSc c.conn == nil) { 

(fline, faddr, fport) := expand (c . f rum) ; 
(tline, taddr, tport) := expand (c . tu) ; 
tport = default_lport ; #override 

sys->print ( "Connect BACK to %s at udp ! %s ! %s\n'\ tport, faddr 
(ok, conn) := dialudpport ( faddr , fport, tport); 
if (ok >= 0) c.conn = ref conn; 
else sys->print ( "Connect failed\n"); 

} 

if (c != nil) { 

Scall = Rcall = c; 

if (csp) startaudio (c . session, 0); 
nextstate (c) ; 

> 

} 

} 

} 

nextstate (c : ref Call) 
{ 

case estate { 



"INVITE" => { 

estate += " 180 Ringing"; 
send(c) ; 

} 

# "INVITE 180 Ringing" => { 

# estate = "INVITE 200 OK"; 

# send(c); 

# } 

# "INVITE 200 OK" => { 

# estate = "ACK"; 

# send(c); 

# } 



"ACK" => { 

estate = "BYE"; 
send(c) ; 

} 

B 3 YE " = > { 

estate += " 200 OK"; 
send (c) ; 

} 

* => sys->fprint (stderr, "waiting state %s\n", estate); 

} 

} 

mkcalld : list of string, data : string) : ref Call 
{ 

(nil, 11) := sys->tokenize(hd 1, " \t"); 
state, substate : string; 
if (11 != nil) { 

state = hd 11; 

fordl = tl 11; 11 != nil; 11 = tl 11) 
substate += " "+ hd 11; 

} 
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cseq := findvalC'CSeq: 1) ; 

(nil, 11) = sys->tokenize(cseq, " \t"); 

if (11 != nil) { 

if (start ("SIP/" , state)) { 
if (tl 11 != nil) 

state = hd tl 11; 

} 

cseq = 12string(ll); 

) 

if (! start {" sip:", substate) ) 

state += substate; 



frum. := sipurlval (f indval ( "From: " , 1)); 
tu := sipurlval (f indval ( "To: " , 1)); 
callid := f indval ( "Call-ID: " , 1); 
if (callid != nil) { 

(nil, 11) = sys->tokenize (callid, " \t@"); 

if (11 != nil) callid = hd 11; 

} 

sid : string; 

if (data != nil) { 

pi := find("o=-", data); if (pi < 0) pi = 0; else pl+=len "o=- 
p2 := poso('\n', data, pi); if (p2 < 0) p2 = 0; 
(nil, 11) = sys->tokenize(data[pl:p21 , " \t\r\n"); 
if (11 != nil) sid = hd 11; 

} 

s : ref Session; 
if (sid != nil) 

s = ref Session(sid, data, nil, nil); 
return ref Call(nil, frum, tu, callid, cseq, state, s) ; 

) 

sipurlval (s : string) : string 
{ 

su : = "<sip: " ; 

pi : = f ind(su, s) ; 

if (pi < 0) return nil; 

else pi += len su; 

p2 := poso('>', s, pi); if (p2 < 0) return nil; 
rs := S[pl:p2] ; 
if (rs != nil) { 

(nil, 1) := sys->tokeni2e (rs, ";"); 
# sys->print ( "sipurl: %s\n" , hd 1); 

return hd 1; 

} 

return rs; 

} 

decode(s : string) : (list of string, string) 
{ 

r : list of string; 

data : string; 

p, pn, n : int = 0; 

while ( (p = posoCNr', s, n)) >= 0 || (pn = poso('\n', s, n) ) >= 0) { 
if (pn) p = pn; 
if (p > n) r = s[n:p] :: r; 
si := getval ( "Content-Length: " , s[n:p]); 
no := ' \n' ; 
if (pn) { 

nc = '\r' ; 

pn = 0; 

} 

if (len s > p+1 && s[p+l] == nc) p++; 
sys->print ( "%s" , s[n:p+l]); 
n = p = p +1; 
if (si != nil) { 

1 := int si; 

data = s [n:n+l] ; 

sys->print ( "%s\r\n\r\n" , data) ; 

break; 

} 

} 

return (reverse (r), data); 

} 
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dialudpport (addr , rport, port : string) : (int, Sys->Connection) 
{ 

(ok, conn ) := sys->dial ( "udp! "+addr+" ! " +rport, port) ; 

if (ok < 0) 

{ 

sys->fprint (stderr, "Cannot connect to udp!%s!%s local %s \n", addr, rport, port) ; 

return (ok, conn) ; 

} 

sys->print { "New connection to udp!%s!%s local %s\n", addr, rport, port) ; 
return (ok, conn) ; 

} 

# string and list utils 

12string(ll : list of string) : string 
{ 

r : string; 

for(;ll != nil; 11 = tl 11) { 

r += hd 11; if (tl 11 != nil) r += " "; 

} 

return r; 

} 

snth(n: int, s : string) : string 
{ 

(nil, 1) := sys->tokenize(s, " \t\r\n"); 
return nth(n, 1) ; 

} 

nth(n: int, 1 : list of string) : string 
{ 

ford := 0; 1 != nil; 1 = tl 1) { 
if (i == n) return hd 1; 
i++; 

} 

return nil; 

} 

retrieve (k, s : string) : string 
{ 

p : = f ind{k, s) ; 
if (p >= 0) { 

z := poso ( ' \r ' , s, p) ; 

if (z < p) 2 = poso{'\n', s, p) ; 

if (z < p) z = len s; 

return s [p: z] ; 

} 

return nil; 

} 

find(e, s : string) : int 
{ 

ford := 0; i < len s - len e; i++) { 
ok := 1; 

for (j := 0; j < len e; j++) 

if (e[j] != s[i+j]) {ok = 0; break;} 
if (ok) return i; 

} 

return -1; 

} 

findvaKk : string, 1 : list of string) : string 
{ 

r : string; 

for(; 1 != nil; 1 = tl 1) 

if ((r = getvaKk, hd 1)) != nil) break; 
return r; 

} 

reversed : list of string) : list of string 
{ 

r : list of string; 

for(; 1 != nil; 1 = tl 1) r = hd 1 : : r; 
return r; 

} 
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poso(c : int, s : string, o : int) : int 
{ 

for(i := o; i < len s; i++) 

if {s[i] == c) return i; 
return -1; 

} 

start (k, s : string) : int 
{ 

if (len s >= len k && k == s[0:len k] ) 

return 1; 
return 0; 

} 

getvaKk, s : string) : string 
{ 

if (len s >= len k && k == stOrlen k] ) 

return s [ len k : ] ; 
return nil; 

} 

# Read list from file 

readlist {path : string) : list of string 
{ 

(ok, dir) := sys->stat (path) ; 
if (ok < 0) { 

sys->f print (stderr, "stat: %s: %r\n", path) ; 

return nil; 

} 

shfd := sys->open (path, sys->OREAD) ; 
if (shfd == nil) { 

sys->f print (stderr, "open: %s: %r\n" , path); 

return nil; 

} 

Ic := dir. length; 

if (Ic == 0) return nil; 

buf := array [Ic] of byte; 
m := 0; n := Ic; 

while ( (n = sys->read(shfd, buf[m:], Ic - m) ) > 0) 

m += n; 
if (n < 0) { 

sys->f print (stderr, "read: %s: %r\n" , path); 

if ( !m) return nil; 

} 

# sys->print("buf [%d]=%s\n" , m. string buf ) ; 

(nil, r) := sys->tokenize( string buf[0:m], " \t\r\n"); 
return r; 

} 
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